pacman::p_load(tidyverse)In-class Ex01
Loading R package
In the code chunk below, ‘p_load()’ of pacman package is used to load tidyverse family of package
realis <-read.csv("data/realis2019.csv")
head(realis, 10) Project.Name Address No..of.Units
1 PEIRCE VIEW 557 Upper Thomson Road #02-12 1
2 FLORIDA PARK 54 Sunrise Drive 1
3 BULLION PARK 164 Lentor Loop #03-02 1
4 CASTLE GREEN 483 Yio Chu Kang Road #07-03 1
5 HAPPY ESTATE 36 Thomson Heights 1
6 TEACHER'S HOUSING ESTATE 148 Tagore Avenue 1
7 THE PANORAMA 20 Ang Mo Kio Avenue 2 #05-40 1
8 THE PANORAMA 16 Ang Mo Kio Avenue 2 #12-20 1
9 CHIP THYE GARDEN 8 Yio Chu Kang Gardens 1
10 TEACHER'S HOUSING ESTATE 16 Kalidasa Avenue 1
Area..sqm. Type.of.Area Transacted.Price.... Nett.Price...
1 113 Strata 840000 -
2 312 Land 3040000 -
3 75 Strata 860000 -
4 107 Strata 1000000 -
5 687 Land 7000000 -
6 228 Land 2880000 -
7 94 Strata 1510000 -
8 42 Strata 710000 -
9 207 Land 2800000 -
10 232 Land 2300000 -
Unit.Price....psm. Unit.Price....psf. Sale.Date Property.Type
1 7434 691 10-Jan-19 Condominium
2 9737 905 10-Jan-19 Semi-Detached House
3 11467 1065 8-Jan-19 Condominium
4 9346 868 3-Jan-19 Condominium
5 10183 946 2-Jan-19 Semi-Detached House
6 12659 1176 11-Feb-19 Terrace House
7 16064 1492 8-Feb-19 Condominium
8 16905 1570 8-Feb-19 Condominium
9 13500 1254 8-Feb-19 Terrace House
10 9935 923 8-Feb-19 Terrace House
Tenure Completion.Date Type.of.Sale
1 Freehold 1996 Resale
2 Freehold 1989 Resale
3 Freehold 1993 Resale
4 99 Yrs From 01/12/1993 1997 Resale
5 Freehold 1984 Resale
6 999 Yrs From 02/12/1885 Unknown Resale
7 99 Yrs From 08/04/2013 2017 Resale
8 99 Yrs From 08/04/2013 2017 Resale
9 Freehold 1981 Resale
10 999 Yrs From 02/12/1885 Unknown Resale
Purchaser.Address.Indicator Postal.District Postal.Sector Postal.Code
1 Private 20 57 574418
2 Private 28 80 806557
3 Private 26 78 789096
4 Private 26 78 787057
5 Private 20 57 574861
6 Private 26 78 787738
7 HDB 20 56 567701
8 Private 20 56 567699
9 HDB 20 56 568058
10 Private 26 78 789395
Planning.Region Planning.Area
1 North East Region Ang Mo Kio
2 North East Region Ang Mo Kio
3 North East Region Ang Mo Kio
4 North East Region Ang Mo Kio
5 North East Region Ang Mo Kio
6 North East Region Ang Mo Kio
7 North East Region Ang Mo Kio
8 North East Region Ang Mo Kio
9 North East Region Ang Mo Kio
10 North East Region Ang Mo Kiorealis <-read_csv("data/realis2019.csv")ggplot(data = realis,
aes(x = 'Unit price($ psm)'))